inherited FCadastroPermissao: TFCadastroPermissao
  Left = 329
  Top = 225
  Caption = 'Cadastro de Permiss'#227'o'
  ClientHeight = 320
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Height = 320
    object Label1: TLabel [0]
      Left = 16
      Top = 56
      Width = 33
      Height = 13
      Caption = 'C'#243'digo'
      FocusControl = DBEdit1
    end
    object Label2: TLabel [1]
      Left = 16
      Top = 96
      Width = 35
      Height = 13
      Caption = 'Modulo'
      FocusControl = DBEdit2
    end
    object Label3: TLabel [2]
      Left = 16
      Top = 136
      Width = 28
      Height = 13
      Caption = 'Nome'
      FocusControl = DBEdit3
    end
    object Label4: TLabel [3]
      Left = 16
      Top = 176
      Width = 31
      Height = 13
      Caption = 'Rotulo'
      FocusControl = DBEdit4
    end
    inherited Panel3: TPanel
      Top = 249
      inherited DBNavigator1: TDBNavigator
        DataSource = dsPermissao
        Hints.Strings = ()
      end
    end
    object DBEdit1: TDBEdit
      Left = 16
      Top = 72
      Width = 73
      Height = 21
      DataField = 'PER_CODIGO'
      DataSource = dsPermissao
      TabOrder = 2
    end
    object DBEdit2: TDBEdit
      Left = 16
      Top = 112
      Width = 400
      Height = 21
      CharCase = ecUpperCase
      DataField = 'PER_MODULO'
      DataSource = dsPermissao
      TabOrder = 3
    end
    object DBEdit3: TDBEdit
      Left = 16
      Top = 152
      Width = 400
      Height = 21
      CharCase = ecUpperCase
      DataField = 'PER_TRANSACAO'
      DataSource = dsPermissao
      TabOrder = 4
    end
    object DBEdit4: TDBEdit
      Left = 16
      Top = 192
      Width = 400
      Height = 21
      CharCase = ecUpperCase
      DataField = 'PER_DESCRICAO'
      DataSource = dsPermissao
      TabOrder = 5
    end
  end
  object dsPermissao: TDataSource
    DataSet = QPermissao
    Left = 192
    Top = 56
  end
  object QPermissao: TQuery
    DatabaseName = 'base'
    RequestLive = True
    SQL.Strings = (
      'SELECT * FROM PERMISSAO')
    Left = 128
    Top = 56
    object QPermissaoPER_CODIGO: TIntegerField
      FieldName = 'PER_CODIGO'
      Origin = 'BASE.PERMISSAO.PER_CODIGO'
    end
    object QPermissaoPER_MODULO: TStringField
      FieldName = 'PER_MODULO'
      Origin = 'BASE.PERMISSAO.PER_MODULO'
      Size = 60
    end
    object QPermissaoPER_TRANSACAO: TStringField
      FieldName = 'PER_TRANSACAO'
      Origin = 'BASE.PERMISSAO.PER_TRANSACAO'
      Size = 60
    end
    object QPermissaoPER_DESCRICAO: TStringField
      FieldName = 'PER_DESCRICAO'
      Origin = 'BASE.PERMISSAO.PER_DESCRICAO'
      Size = 100
    end
  end
end
